﻿Imports System.Text

Namespace CountryTests

    <TestClass()>
    Public Class IsCountryTests

        <TestMethod()>
        Public Sub ExistingCountry()

            Const countryShortName As String = "CHI"

            Assert.IsTrue(Country.IsCountry(countryShortName))

        End Sub

        <TestMethod()>
        Public Sub NotExistingCountry()

            Const countryShortName As String = "COuntryDontExist"

            Assert.IsFalse(Country.IsCountry(countryShortName))

        End Sub

    End Class
End Namespace